home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
oop_tp55.zip
/
LIST5_5.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-02-01
|
516b
|
19 lines
program Listing5_5;
uses NewTags; { Tags modified to abstract .Init method in DInput type
and make .PutReading virtual. }
var
HS : HiSwitch;
LS : LoSwitch;
begin
HS.Init('Tag1', 3.4, 2.1 );
LS.Init('Tag2', 6.7, 10.2 );
writeln( HS.TagNumber, ': Setpoint = ', HS.Setpoint:2:2,
'; Reading = ', HS.Reading:2:2 );
writeln( LS.TagNumber, ': Setpoint = ', LS.Setpoint:2:2,
'; Reading = ', LS.Reading:2:2 );
end.
{ Listing 5-5 }